perm filename TESTX[SCR,LCS] blob sn#367618 filedate 1978-07-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00004 ENDMK
CāŠ—;
PRECEDE;
FUNC TEST.FUN[222,TGW];
INST TOOT TEST1 TEST2 TEST3;
*
 
 
TEST1 0;
 
P2 RHY/4;
P3 NUM/200;
P4 .7;               	<AMPLITUDE FACTOR
P5 F10;			<AMPLITUDE ENVELOPE

 			<HARMONICS
P6 FUN/1/    		<20-24
R/			<17-21
3/			<14-18
4/			<11-15
5/			< 8-12
6/			< 5- 9
7/			< 2- 6
8/			< 1- 5
7/			< 2- 6
6/			< 5- 9
5/			< 8-12
4/			<11-15
3/			<14-18
2/			<17-21
1/	   		<20-24
15/			<REST
1/	    		<20-24
2/			<17-21
3/			<14-18
4/			<11-15
5/			< 8-12
6/			< 5- 9
7/			< 2- 6
8/			< 1- 5
7/			< 2- 6
6/			< 5- 9
5/			< 8-12
4/			<11-15
3/			<14-18
2/			<17-21
1/	   		<20-24
15/			<REST
8 X 3/			<1-5 & 8-12 & 14 - 18
15/
8 X 3/FINE;		<1-5 & 11-1 & 20 - 24


P7 0;P8 0;P9 0;P10 0;	<ENVELOPE TIME PARAM
P11 45;P12 1;		<DISTANCE PARAMETERS
P13 0;			<REVERB %
P14 DF .75;		<DUTY FACTOR
END;



TEST2 24;
 
DUPL 1; 		<HARMONICS
P6 FUN/
8 X 7/			< 1- 5
15//
5//			< 8-12
15//
4//FINE;		<11-15


END;
 
 
 
TEST3 34;
 
DUPL 1;
P6 FUNC/3/		<14-18
15///
1/FINE;			<20-14
END;